home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / td187src.lzh / TYPES.D < prev    next >
Text File  |  1991-12-14  |  3KB  |  52 lines
  1. DEFINITION MODULE Types;
  2.  
  3. FROM MagicSys IMPORT sWORD, sINTEGER;
  4.  
  5. CONST ExtendedArraySize = 1000;
  6.       CharArraySize     = 128;
  7.  
  8. TYPE sourceformat       = (img, stad, gem, calamus, postscript);
  9.      targetformat       = (tex, metafont, gfpk);
  10.      specialformat      = (Normal, Cstrunk, Eepic, Metafont, Postscript);
  11.      LatexSpecials      = ( nothing, tpic, cstrunk1, cstrunk2, emtex );
  12.      DrawObjectTyp      = ( Picture,
  13.                             Line, Arrow,
  14.                             Circle, Disk, Oval,
  15.                             Framebox, Dashbox, Ovalbox, Filledbox, Text,
  16.                             Beziercurve, Bezierellipse,
  17.                             EpicSolidLine, EpicDottedLine, EpicDashedLine,
  18.                             EpicGrid, Arc, Spline, Ellipse );
  19.      TextPosTyp         = ( NoJust, LeftTop, Left, LeftBot, Top,
  20.                             Center, Bottom, RightTop, Right, RightBot );
  21.      CodeAryTyp         = ARRAY [ 0..9 ] OF sINTEGER ;
  22.      CharPtrTyp         = POINTER TO ARRAY [ 0..CharArraySize-1 ] OF CHAR ;
  23.      ExtendedPtrTyp     = POINTER TO ARRAY [ 0..ExtendedArraySize ] OF sINTEGER ;
  24.      BitmapPtr          = POINTER TO BitmapTyp ;
  25.      BitmapTyp          = RECORD
  26.                             xext, yext : sINTEGER;
  27.                             map        : POINTER TO ARRAY [0..32767] OF sWORD;
  28.                           END;
  29.      ObjectPtrTyp       = POINTER TO ObjectRecTyp ;
  30.      ObjectRecTyp       = RECORD
  31.                             Code         : CodeAryTyp ;
  32.                             CPtr         : CharPtrTyp ;
  33.                             EPtr         : ExtendedPtrTyp ;
  34.                             Selected     : BOOLEAN; (* Auswahlflag *)
  35.                             Locked       : BOOLEAN; (* Schutz vor Änderungen *)
  36.                             SurrDirty    : BOOLEAN; (* Surround undefiniert ? *)
  37.                             Surround     : ARRAY [0..3] OF sINTEGER;  (* umgebendes Rechteck *)
  38.                             Children     : ObjectPtrTyp;  (* für Subpicture *)
  39.                             Bitmap       : BitmapPtr;
  40.                             Next         : ObjectPtrTyp ;
  41.                           END ;
  42.      Block              = RECORD x , y , w , h : sINTEGER ; END;
  43.      JputMarker         = (None, PutDiamond, PutPlus, PutCircle,
  44.                            PutSquare, PutOtimes);
  45.      Draw3D             = (flat, extrude, pyramid);
  46.      LineMode           = (polyline, polygon);
  47.      LineType           = (EpicSolid, EpicDashed, EpicDotted,  LatexLine);
  48.      ObjectSet          = SET OF DrawObjectTyp;
  49.      CharSet            = SET OF CHAR;
  50.  
  51. END Types.
  52.